100 PRINT"[147]           TURBODISK RELOCATOR[146]":OPEN15,8,15
110 OPEN2,8,4,"TURBODISK 64,P,R":GOSUB160
120 GET#2,A$,A$
130 INPUT"NEW BOOT NAME";PN$:OPEN1,8,3,PN$+",P,W":GOSUB160
140 INPUT"NEW ADDRESS FOR TURBODISK";AD:SP=INT(AD/256)
150 PRINT#1,CHR$(0);CHR$(SP);:GOSUB180:GOSUB190:CLOSE1:CLOSE2:END
160 INPUT#15,E,E$,T,S:IFE=0THENRETURN
170 PRINTE,E$:CLOSE1:CLOSE2:STOP
180 DIM PO(24),VO(24):READN:FORX=1TON:READPO(X),VO(X):NEXTX:RETURN
190 N=1:N$=CHR$(0):PRINT"TARGET[146] = 956":FORX=0TO956
200 PRINT""X:GET#2,A$:A=ASC(A$+N$)
210 IFX=PO(N)THEN A=SP+VO(N):PRINT#1,CHR$(A);:N=N+1:GOTO230
220 PRINT#1,CHR$(A);
230 NEXTX:RETURN
240 DATA 23,17,0,33,0,104,3,112,3,140,2,167,0,170,0,175,0,258,1,261,4
250 DATA 274,4,277,4,286,4,291,1,294,1,297,4,304,1,314,4,321,4,326,4
260 DATA 332,1,361,4,431,4